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exTFCB r$esepctgte 1:08:1) VACTT aisee32 yeigmT42 Paget 
MODULE EXTFCB (¢ 
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it ® 
'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
is ALL RIGHTS RESERVED. . 
ie THIS hes: § ss FURNISHED ner A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
iw INCLUSION OF THE ABOVE COPYRIGHT NOT ice THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR UTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
» CORPORATION. : 
ie DIGITAL ASSUMES NO RESPONSIBIL * 
'® SOFTWARE ON EQUIPMENT WHICH IS N : 
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FACILITY: F11ACP Structure Level 1 

i ABSTRACT: 

This routine updates an FCB for one extension header of the file. 
f the file is accessed, it creates an Sgigneton FCB. Regardless, 
t updates the file size in the primary F 


i ENVIRONMENT : 
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STARLET operating system, including privileged system services 
end seternst exec routines. This routine must be called in 
ernel mode. 


i AUTHOR: Andrew C. Goldstein, CREATION DATE: 25-Jul-1977 10:55 
i MODIFIED BY: 


v03-001 LAposo? Mark Pilant, qo-pue te 14:02 
Remove the call a the window turner as it is done elsewhere. 


v02-002 LMP0005 L. Mark Pilant, 5-Jan-1982 15:55 
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vos-660 betas P3:93:3 — DERKSimSmaStenschTiAcsnesextece.e32:1°% «15 nk 
: Add support for Cathedral windows. 


A0101 ar626s69 Andrew C. Goldstein, 28-Dec-1979 15:44 
Fix multi=header interlock bug 


A0100 aceooor? Andrew C. Goldst 
ision histor 


ein, 10-Oct-1978 20:02 
Previous rev y moved to FI1A.REV 
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LIBRARY ee eeePORAST #4 18,452": 
REQUIRE ‘SRCS$:FCPDEF .B352'; 
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GLOBAL ROUTINE MAKE_EXTFCB (HEADER, FCB, MODE) = 


e+ 
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i FUNCTIONAL DESCRIPTION: 


This routine updates an FCB for one extension header of the file. 
f the file is accessed, it creates an extension FCB. Regardless, 
t updates the file size in the primary FCB. 


re 
38 


: CALLING SEQUENCE: 
MAKE _EXTFCB (ARG1, ARG2, ARG3) 


! INPUT PARAMETERS: 
ARG1: address of extension file header 


r 
ust building primary FCB for read attributes 
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ROUTINE VALUE: 
address of new FCB created or 0 


SIDE EFFECTS: 
new FCB created, primary FCB modified, window modified 


oe gddre s of last file FCB o 
ARGS: f 

9 1 if file is being accessed (to create new FCB) 
+ 2 if file is being extended (creating new header) 
4 i IMPLICIT INPUTS: 

9 PRIMARY_FCB: address of primary FCB of fil 

94 CURRENT WINDOW: address of file window or 

95 UNREC_COUNT: count of allocated but unrecorded blocks 
3 OUTPUT PARAMETERS: 
ss NONE 

IMPLICIT OUTPUTS: 
: NONE 
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10 
11 BEGIN 
i 
14 HEADER REF BBLO ! file header arg 

HF : REF BBLOCK; ! FCB arg 
13 LOCAL 

18 DUMMY _FCB BBLOCK CFCBSC_LENGTH), ! dummy FCB to compute file size 
i NEW_FCB : REF BBLOCK; “~! address of new FCB created 

1 EXTERNAL 

§ IMARY_F REF BBLOCK, =! address of rinery FCB of file 

CURRENT _WINDOW REF BBLOCK, ' address of ie window if any 
4 CURRENT _FIB : REF BBLOCK, ' FIB of operation 
é EC_COUNT; ! count of allocated but unrecorded blocks 
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4 CREATE ence ! ate 
; INIT ; fn nit $ ulzee Sater ing FCB 
4 
§ 4 ! If the file is not accessed, this is for ’ youd attributes which just needs 
‘3 ! , gta’ FCB. ALL we do is compute the fil ze of the header and add 
4 ! it into the primary FCB. 
5 rk ! 
IF .MODE EQL 0 
THE ae 
INI GIN FCB (DUMMY_FCB, .HEAD RD; satite size in dummy FCB 
: neo FCBSL _FILESIZE * PRIMARY? ‘CB F BSL L_FILESIZE] + .DUMMY_FCBCFCBSL_FILESIZE); 
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! If the file is accessed, we create s new FCB if there isn't one already 
! and Link it in. On an access we attempt a window turn to VEN 1 in case 

: th sisa ler e contiguous file. On an extend we must compute the new FCB 

! starting VBN from the extend data lying around, since the primary FCB isn't 
: updated until the very end. 


ELSE GIN 
ets ted CREATE aries i (, HEADER) ; 


BEFCBSY ACRT 
NSGUE (CREW FCB, * AME¥eE SP’ cars, 
-MODE 
a SEG cece ce L_STVBN) = .NEW FCBCFCBSL_STVBN) + .PRIMARY_FCBCFCBSL_FILESIZE): 
75 PRIRARY F COEF OSL FILE 27£)"= PRIMARY FCBLFCBSL FILESIZED + -NEW"F CBCF FCBSL_FILESIZE); 


E 
ELSE 

NEW_F CBCFCBSL_STVBN) : are FC ac CBSL_STVBN) + .PRIMARY Os -FILESIZE) 
URRENT_FIBCFIBSL_EXSZ] - .UNREC_C 


RETURN .NEW_FCB; 
END; 
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END; ! end of routine MAKE_EXTFCB 
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N PRIMARY_FCB, CURRENT WINDOW 
N CURRENT-FIB, UN GUNT 
TRN CREATE_FCB, INIT _Fte 
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Routine Size: 


SCODES 


File 
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oc = uUOCA 
‘i 43 
4 Ac 4 
4 a5 F 
10006 5 ome CF Ob 
s BO ER 
0 
04 AC OO 
0000G CF 3 F 
TA 30 1 8B 
5 08 aC OD 
oc AI 56 B 
1 6 
1 00006 He 4 
$f A A C 
Al AO fe 
52 2c =6A0 3 Al C1 
1 0000G CF D 
§ 1 Al ¢ 
2c = AO 0000G CF S 
102 bytes, Routine Base: S$CODE$ + 0000 
85 
ve 0 ELUDOM 
PSECT SUMMARY 
Bytes 
102 NOVEC,NOWRT, RD, 
Library Statistics 
cosessee Symbols 
Total Loaded 
-L32;1 18619 8 
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Attributes 
EXE ,NOSHR, 


Percent 
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TST Agve 3 
BNE : 
PUSHL NEADER : 
re a a ; 
ADDL2 y Ftessé, ROG (ROD : 
CLRL R : 
RET ; 
PUSHL HEADER : 
CALLS #1, REA TE_FCB : 
MOVW #1. 26(NEW-FCB) : 
MOVL FCB, RI : 
MOVL NEW. FCB, 12(R1) : 
INSQUE (NE 0 FCB) (R1) : 
MOVL PRIMARY FCB, R1 : 
BLBC MODE, 28 : 
ADDL 26(R1), 44 (NEW_FCB) : 
ADDL 6(NEW.FCB), 58(R1) : 
ADDL3 56(R1) 44 (NEW FCB), R2 : 
OVL URRENT_F : 
ADDLg 4(R1) “h : 
SUBL Bete) che R2, 44(NEW_FCB) : 
LCL, REL, CON,NOPIC,ALIGN(2) 
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COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LISS:EXTFCB/OBJ=OBJ$:EXTFCB MSRCS:EXTFCB/UPDATE=(ENHS:EXTFCB) 


Pistia Time . aa 0 data bytes 
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